home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / clrdsp.arc / CPP3201.RPG < prev    next >
Text File  |  1991-12-04  |  5KB  |  130 lines
  1.       /TITLE  Q38 - Sample maintenance program w/clear display.
  2.       *
  3.       *       Program - CPP3201
  4.       *       Author  - R. Cozzi, Jr.
  5.       *       Date    - 01/02/86
  6.       *       Description - Example of clearing the display
  7.       *                     using only DDS.
  8.       *
  9.      FCPP3201 CF  E                    WORKSTN
  10.      FCUSTMASTUF  E           K        DISK                      A
  11.      I           SDS
  12.      I                                     *PROGRAM PGMNAM
  13.      I                                     *PARMS   PARMS
  14.       /SPACE
  15.      C           *LIKE     DEFN MODE      UPDATE
  16.      C           *LIKE     DEFN MODE      ADD
  17.      C                     MOVE 'UPDATE'  UPDATE
  18.      C                     MOVE 'ADD'     ADD
  19.      C                     MOVE UPDATE    MODE
  20.       *       Write top display
  21.      C                     WRITECPP3201T
  22.       *       Write bottom display
  23.      C                     WRITECPP3201B
  24.       *       Stay in loop until CMD 1 is pressed
  25.      C           *IN01     DOWEQ'0'
  26.       *       Display prompt for account number
  27.      C           START     TAG
  28.      C                     EXFMTCPP3201A
  29.       *       If CMD 1 then get out.
  30.      C           *IN01     CABEQ'1'       ENDPGM
  31.      C           *IN03     IFEQ '1'
  32.      C           MODE      IFEQ UPDATE
  33.      C                     MOVE ADD       MODE
  34.      C                     ELSE
  35.      C                     MOVE UPDATE    MODE
  36.      C                     END
  37.      C                     GOTO START
  38.      C                     END
  39.       *       If CMD 7, then perform scan
  40.      C           *IN07     IFEQ '1'
  41.       *       If SCHDTA contains data, then call search program
  42.      C           SCHDTA    ANDGT*BLANKS
  43.       *-------------------------------------------------*
  44.       *                                                 *
  45.       *   Insert your search program's program name     *
  46.       *                                                 *
  47.       *-------------------------------------------------*
  48.      C                     CALL 'SEARCH'               52
  49.      C                     PARM           SCHDTA
  50.      C                     PARM           ACTNBR
  51.      C           *IN52     IFEQ '1'
  52.      C                     Z-ADD0         ACTNBR
  53.      C                     END
  54.      C                     END
  55.       /SPACE
  56.      C           ACTNBR    CABEQ0         START
  57.       /SPACE
  58.      C           ACTNBR    CHAINCSTMST               10
  59.      C           *IN10     IFEQ '1'
  60.      C           MODE      CABEQUPDATE    START
  61.      C                     ELSE
  62.      C           MODE      CABEQADD       START          11
  63.      C                     END
  64.       /SPACE
  65.      C           GOTDBR    TAG
  66.      C                     MOVEL'0'       *IN95
  67.      C           MODE      IFEQ ADD
  68.      C                     MOVEL'1'       *IN95
  69.      C                     WRITECPP3201C
  70.      C                     END
  71.       /SPACE
  72.      C           DSPDBF    TAG
  73.       *     Stay in loop if nullify is pressed
  74.      C           *IN06     DOUEQ'0'
  75.      C                     EXFMTCPP3201C
  76.      C                     END
  77.      C                     MOVEL'0'       *IN95
  78.      C           *IN91     CASEQ'1'       DLTCST           DELETE CUSTOMER
  79.      C           *IN91     CASEQ'0'       DTAMGT           DATA MANAGEMENT
  80.      C                     END
  81.       /SPACE
  82.       *      Roll up key press?
  83.      C           *IN45     IFEQ '1'
  84.      C           ACTNBR    SETGTCSTMST
  85.      C                     READ CSTMST                   92
  86.      C           *IN92     CABEQ'1'       DSPDBF
  87.      C                     GOTO GOTDBR                      GOT DATA RCD
  88.      C                     END
  89.       /SPACE
  90.       *      Roll down key press?
  91.      C           *IN46     IFEQ '1'
  92.      C           ACTNBR    SETLLCSTMST
  93.      C                     READPCSTMST                   93
  94.      C           *IN93     CABEQ'1'       DSPDBF
  95.      C                     GOTO GOTDBR                      GOT DATA RECD
  96.      C                     END
  97.       /SPACE
  98.      C                     END
  99.       /SPACE
  100.      C           ENDPGM    TAG
  101.      C                     MOVEL'1'       *INLR
  102.       /SPACE
  103.      CSR         DTAMGT    BEGSR
  104.      C           *IN02     IFEQ '1'
  105.      C           *IN06     OREQ '1'
  106.      C                     EXCPTRELEAS
  107.      C                     ELSE
  108.      C           *IN10     IFEQ '1'
  109.       *     Add to the master file
  110.      C                     WRITECSTMST
  111.      C                     ELSE
  112.       *     Update the master file
  113.      C                     UPDATCSTMST
  114.      C                     END
  115.      C                     END
  116.      CSR                   ENDSR
  117.       /SPACE
  118.      CSR         DLTCST    BEGSR
  119.       *     Delete the data record.
  120.      C                     EXFMTCPP3201D
  121.      C           ANSWER    IFEQ 'Y'
  122.      C           *IN01     ANDEQ'0'
  123.      C           *IN02     ANDEQ'0'
  124.      C           *IN10     ANDEQ'0'
  125.      C                     DELETCSTMST
  126.      C                     END
  127.      CSR                   ENDSR
  128.       /SPACE
  129.      OCSTMST  E       N10      RELEAS
  130.